home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload Trio 2
/
Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO
/
dir42
/
doslbs.zip
/
DOSLIB05.CLA
< prev
next >
Wrap
Text File
|
1994-03-14
|
3KB
|
63 lines
Member('DOSLIB')
OMIT('╝')
╔════════════════════════════════════════════════════════════════════════════╗
║ GetStyleFile - Allows the User to Sprecify a Style File to Edit ║
╚════════════════════════════════════════════════════════════════════════════╝
! ┌──────────────────────┐
! ┌┤Modification History ├────────────────────────────────────────────────────┐
! │└──────────────────────┘ │
! │ Ver. Date Programmer Summary of Changes │
! ├────────────────────────────────────────────────────────────────────────────┤
! │ │
! │ 1.01 18-Nov-1993 Trevor G. Leybourne Original Production Version │
! │ 1.01 Feb-1994 Trevor G. Leybourne Added functionality to read │
! │ the INI for printer details. │
! └────────────────────────────────────────────────────────────────────────────┘
GetFileDetails Function(Default:Name,Default:Title,Default:Mask)
FileDetailsName String(64)
GetFileScreen SCREEN(7,40),SHADOW,ZOOM,CUA,COLOR(1)
!dimensions=25,80,25,80
!style=D:\CLARION\CLA_30\CLARION.STY
ROW(2,2) PAINT(1,13),COLOR(112)
ROW(2,25) PAINT(1,14),COLOR(112)
ROW(3,2) PAINT(4,1),COLOR(112)
ROW(4,3) PAINT(1,20),COLOR(112)
ROW(4,25) PAINT(1,14),COLOR(112)
ROW(5,3) PAINT(2,6),COLOR(112)
ROW(5,18) PAINT(2,6),COLOR(112)
ROW(5,33) PAINT(2,6),COLOR(112)
ROW(7,1) STRING('█▄{38}█'),COLOR(3)
REPEAT(6)
ROW(1,1) STRING('█'),COLOR(3)
ROW(1,40) STRING('█'),COLOR(3)
.
ScreenTitle ROW(1,2) STRING(@s38),COLOR(2)
ROW(3,3) ENTRY(@s36),USE(FileDetailsName),UPR,COLOR(8,9,38)
ROW(5,9) BUTTON(' &Ok |'),SHADOW,KEY(EnterKey),USE(?GetFile:Ok),COLOR(17,18,39,19,20)
COL(24) BUTTON(' &Cancel |'),SHADOW,KEY(EscKey),USE(?GetFile:Cancel),COLOR(17,18,39,19,20)
.
Code
Open(GetFileScreen)
If ~Omitted(1) then FileDetailsName = Default:Name.
If ~Omitted(2) then ScreenTitle = Center(Default:Title,Size(ScreenTitle)).
Loop
Accept
Case Field()
Of ?FileDetailsName
If Clip(FileDetailsName) = '' then
FileDetailsName = Get_FileName(Default:Mask,Default:Title)
Select(?FileDetailsName)
.
Of ?GetFile:Ok
Break
Of ?GetFile:Cancel
Clear(FileDetailsName)
Break
. .
Close(GetFileScreen)
Return(FileDetailsName)